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IMPORTANT 

Blue Mountain Computer, Inc. makes no expressed 
or implied warranty with regard to the program ma- 
terials offered or their mechantability or their fit- 
ness for any particular purpose. The program materi- 
als are made available solely on an "as is" basis. 

In no ev.ent shall Blue Mountain Computer, Inc. 
be liable to anyone for special, collateral, inciden- 
tal, or consequential damages in connection with or 
arising out of the furnishing, use, or performance of 
the program materials. The sole and exclusive liabil- 
ity to Blue Mountain Computer, Inc., regardless of 
the form of action, shall not exceed the purchase 
price of the book. 

The word TI and TI-99/4A Computer are registered 
trademarks of Texas Instruments Incorporated. Texas 
Instruments. Inc. was not in any way involved in the 
preparation, writing or reviewing of this book. Use 
of the term TI should not be construed to represent 
any endorsement, official or otherwise, by Texas In- 
struments Incorporated. 
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Introduction 



Congratulations! -You have just found 50 exciting 
programs for your Texas Instruments TI-99/4A Comput- 
er. No accessories are needed for your computer in 
order to run the programs in this book, although a 
cassettee tape recorder is highly recommended for 
storing programs. 

All 50 programs are specifically written for 
TI-99/4A Computer. This book is designed to help you 
get the most from your computer. It provides pro- 
grams to solve real world problems in finance and 
mathematics, as well as educational, graphics, and 
games programs of general interest. 

This book is useful for both the novice and the 
person who has a good knowledge of computers. The 
programs include interesting techniques which you may 
find useful in writing your own programs. We hope 
this book will help you understand and enjoy your 
computer for many years to come. 
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Arithmetics 



This program teaches addition, subtraction and 
multiplication. The computer randomly selects two 
numbers and asks you for their sum, difference or 
product. Unless you give the correct answer, the com- 
puter will not let you go. To terminate this program, 
hold the key FCTN down, then press CLEAR. 



Sample Run 
>RUN 

WHAT IS 8+5 ? 

? 11 

RIGHT 

WHAT IS 4*9 ? 
? 35 

WHAT IS 4*9 ? 

? 36 

RIGHT 

WHAT IS 92-1 ? 

? 91 

RIGHT 



Program Listing 

100 REM ARITHMETICS 

110 CALL CLEAR 

120 RANDOMIZE 

1 30 PRINT : : : 

140 I=INT(RND*100) 

150 J=INT(RND*10) 

160 ON INT(RND*3)+1 GOTO 170,200,230 
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170 PRINT "WHAT IS";I; "+"; J; 
180 INPUT IPJ 

190 IF IPJ=(I+J)THEN 260 ELSE 170 
200 PRINT "WHAT IS" ;I ; "-"; J; "?" 
210 INPUT IMJ 

220 IF IMJ=(I-J)THEN 260 ELSE 200 
230 PRINT "WHAT IS";I;"*";J;"?" 
240 INPUT ITJ 

250 IF ITJ=(I*J)THEN 260 ELSE 230 
260 PRINT "RIGHT" 
270 GOTO 130 
280 END 




Calendar 



Enter any year from 1700 to 2100. Then enter 
month and date. This program will tell you the day of 
the week. If you want to continue the program, press 
Y. Press any other key will terminate the program. 



Sample Run 

>RUN 
YEAR=?1 985 
M0NTH=?5 
DAY=?7 

IT IS A SATURDAY 
WANT TO CONTINUE?N 
** DONE ** 



Program Listing 

100 REM CALENDAR 
110 CALL CLEAR 
120 DIM D$(7) 
130 D$(1 )= "SUNDAY" 
140 D$( 2)= "MONDAY" 
150 D$ (5)= "TUESDAY" 
160 D$ (4)= "WEDNESDAY" 
170 D$(5)="THURSDAY" 
180 D$( 6)= "FRIDAY" 
190 D$ (7)= "SATURDAY" 
200 INPUT "YEAR=?":Y 
210 IP Y<1700 THEN 200 
220 IF Y>2100 THEN 200 
230 INPUT "M0NTH=?":M 
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240 IF M<1 THEN 250 
250 IF M>12 THEN 250 
260 INPUT "DAY=?":D 
270 I=D-621049 
280 I1=Y*565.25 
290 12=50. 6*(M+1 ) 
500 IF M>2 THEN 550 
510 11=11-565.25 
520 12=12+12*50.6 
550 I=I+INT(I1)+INT(I2) 
540 IF Y>1800 THEN 570 
550 IF M>2 THEN 570 
560 1=1+1 

570 IF Y>1900 THEN 400 
580 IF M>2 THEN 400 
590 1=1+1 

400 I=I-INT(l/7)*7 

410 PRINT "IT IS A ";D$(l+l) 

420 INPUT "WANT TO CONTINUE?" :A$ 

450 B$=SEG$(A$,1,1) 

440 IF B$="Y" THEN 200 

450 END 
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Change 



After entering the price of an item and the 
amount of payment, this program will print out the 
change . 



Sample Run 
>RUN 

PRICE OF ITEM?5.27 
AMOUNT OF PAYMENT? 10 
AMOUNT OF CHANGE 

ONE ONE ONE ONE 
HALF-DOLLAR 
DIME DIME 
PENNY PENNY PENNY 
** DONE ** 



Program Listing 

100 REM CHANGE 
110 CALL CLEAR 
120 DATA HUNDRED, 100, FIFTY 
130 DATA 50, TEN, 10, FIVE, 5 
1 40 DATA ONE, 1 , HALF-DOLLAR 
150 DATA 0.5, QUARTER, 0.25 
160 DATA DIME,0.1 , NICKEL 
170 DATA 0.05, PENNY, 0.01 
180 DATA A$(10),B(10),R(10) 
190 FOR 1=1 TO 10 
200 READ A$(I),B(I) 
210 NEXT I 
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220 INPUT "PRICE OF ITEM?":P 
230 INPUT "AMOUNT OF PAYMENT?": A 
240 C=A-P 

250 IF C<0 THEN 220 
260 FOR 1=1 TO 10 
270 R(I)=INT(C/B(I)) 
280 C=C-R(I)*B(I) 
290 NEXT I 

300 PRINT "AMOUNT OF CHANGE",,, 
310 FOR 1=1 TO 10 
320 FOR J=1 TO R(I)STEP 1 
330 PRINT A$(I);" 
340 NEXT J 

350 IF R(I)=0 THEN 370 
360 PRINT 
370 NEXT I 
380 END 
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Morse Code 



This program decodes Morse Code characters and 
prints out the corresponding English characters. The 
Morse Code is for character A, and is for 

character B. You can figure out the rest from program 
statements 120 to 180. Leave one blank between char- 
acters and another blank between words. To input a 
dash in Morse Code, hold down the SHIFT key, then 
press the key / . 



Sample Run 
>RUN 

ENTER A LINE . . . 



9 

• ••••• 

MORSE CODE 

PRESS C TO CONTINUE 



Program Listing 

100 REM MORSE CODE 

110 CALL CLEAR 

120 DATA B.-B-.. .B-.-.B-. .B 

150 DATA .B..-.B— .B B 

140 DATA ..B. B-.-B.-..B 

150 DATA — B-.B— B.--.B 
160 DATA — .-B.-.B...B-B 
170 DATA ..-B...-B.— B 
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180 DATA -..-B-.— B— ..BB 

190''MC$="" 
200 FOR 1=1 TO 7 
210 READ A$ 
220 MC$=MC$&A$ 
250 NEXT I 
240 CA$="" 
250 J=65 

260 FOR 1=1 TO LEN(MC$) 

270 CA$=CA$&CHR$(J) 

280 IF SEG$(MC$,I,1)<>"B" THEN 350 

290 IF J=52 THEN 550 

500 J=J+1 

510 IF J<=90 THEN 550 
520 J=52 
550 NEXT I 

540 PRINT "ENTER A LINE OF MORSE 

CODE WITH BLANK BETWEEN CHARACTERS 
AND ANOTHER BLANK BETWEEN WORDS" 

550 PRINT 

560 INPUT ME$ 

570 ME$=ME$&" " 

580 P=1 

590 MG$="" 

400 IF P>LEN(ME$)THEN 540 
410 L=P0S(ME$," ",P) 
420 C$="" 

450 IF P=L THEN 450 
440 C$=SEG$(ME$,P,L-P) 
450 C$="B"&C$&"B" 
460 P=L+1 

470 L=P0S(MC$,C$,1) 

480 IF L=0 THEN 490 ELSE 510 

490 CR$="?" 

500 GOTO 520 

510 CR$=SEG$(CA$,L,1 ) 

520 MG$=MG$&CR$ 

550 GOTO 400 

540 PRINT MG$ 
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550 PRINT 

560 PRINT "PRESS C TO CONTINUE 
570 CALL KEY(0, KEY, STATUS) 
580 IF STATUS=0 THEN 570 
590 IF KEY=67 THEN 540 
600 END 
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Polish Notation 



The most common computer representation for an 
arithmetic expression is known as postfix Polish no- 
tation, invented by the Polish mathematician Jan Lu- 
kasiewicz. The syntax of a conventional expression is 
Operand Operator Operand, also known as infix nota- 
tion. The syntax for postfix notation is Operand 
Operand Operator. 

This program will translate any conventional 
(infix) expression into postfix (Polish) notation. 
Operand must "be denoted by single letter. 



Sample Run 
>RUN 

ENTER CONVENTIONAL EXPRESSION 
? ((A+B)/(C-D))*F 
PLOISH NOTATION 
AB + CD-/F* 



Program Listing 

100 REM POLISH NOTATION 
110 CALL CLEAR 
120 DIM STK$(100) 
130 PTR=1 

140 PRINT "ENTER CONVENTIONAL EXPRESSION" 

150 PRINT 

160 INPUT INS 

170 G$="" 

180 1=0 

190 1=1+1 
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200 IF I>LEN(IN$)THEN 540 
210 N$=SEG$(IN$,I,1 ) 
220 N=ASC(N$) 

250 IF (N>64)*(N<91 )THEN 240 ELSE 260 
240 G$=G$&N$&" " 
250 GOTO 190 

260 IF N=40 THEN 270 ELSE 300 

270 STK$(PTR)=N$ 

280 PTR=PTR+1 

290 GOTO 190 

500 IF N=41 THEN 520 

510 GOTO 580 

520 IF STK$(PTR-1 )<>"(" THEN 550 

ELSE 560 
550 PTR=PTR-1 
340 G$=G$&STK$(PTR)&" " 
550 GOTO 520 
560 PTR=PTR-1 
570 GOTO 190 

580 IF PTR=1 THEN 590 ELSE 410 

590 PTO 

400 GOTO 440 

410 L$=STK$(PTR-1 ) 

420 GO SUB 620 

450 PT=P 

440 L$=N$ 

450 GOSUB 620 

460 PG=P 

470 IF PT>=PG THEN 480 ELSE 510 

480 PTR=PTR-1 

490 G$=G$&STK$(PTR)&" " 

500 GOTO 580 

510 STK$(PTR)=N$ 

520 PTR=PTR+1 

550 GOTO 190 

540 FOR I=PTR-1 TO 1 STEP -1 
550 G$=G$&STK$(I)&" 
560 NEXT I 
570 PRINT 
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580 PRINT "POLISH NOTATION" 

590 PRINT 

600 PRINT G$ 

610 STOP 

620 L=ASC(L$) 

650 IF L=40 THEN 640 ELSE 660 
640 P=0 
650 RETURN 

660 IP (L=43)+(L=45)THEN 670 ELSE 690 
670 P=1 
680 RETURN 

690 IF (L=42)+(L=47)THEN 700 ELSE 710 
700 P=2 
710 RETURN 
720 END 



POLISH 
N OTATl Ot^ 
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Scramble 



This program will randomly select a word defined 
in statements 150-160. It scrambles the word and then 
asks you what it is. You may put new words into 
statements 130-160. The numbers in statements 110 and 
120 should be equal to the total number of words de- 
fined in statements 150-160. 

To terminate this program, hold down the key 
FCTN, then press the key CLEAR. 



Sample Run 
>RUN 



FDNU 
ANSWER ?FUND 
RIGHT 



Program Listing 

100 REM SCRAMBLE 

110 DIM A$(12),R$(12) 

120 N=12 

150 DATA APPLE, BOOK, DISH 
140 DATA EAST, FUND, GIRL 
150 DATA HORSE, IVORY, JACK 
160 DATA KEY, LAMP, MONEY 
170 FOR 1=1 TO N 
180 READ A$(I) 
190 NEXT I 
200 RANDOMIZE 
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210 J=INT(RND*N)+1 

220 CALL CLEAR 

230 B$=A$(J) 

240 L=LEN(B$) 

250 FOR 1=1 TO L 

260 R$(I)=SEG$(B$,I,1) 

270 NEXT I 

280 FOR 1=1 TO 3 

290 K=INT(RND*L)+1 

300 M=INT(RND*L)+1 

310 T$=R$(K) 

320 R$(K)=R$(M) 

330 R$(M)=T$ 

340 NEXT I 

350 N$="" 

360 FOR 1=1 TO L 

370 N$=N$&R$(I) 

380 NEXT I 

390 IF N$=B$ THEN 280 

400 FOR 1=1 TO L 

410 A=ASC(R$(I)) 

420 CALL HCHAR(10,10+I,A) 

430 NEXT I 

440 INPUT "ANSWER ?":AN$ 

450 IF AN$=B$ THEN 460 ELSE 480 

460 PRINT "RIGHT" 

470 GOTO 490 

480 PRINT "WRONG, IT IS ":B$ 
490 FOR 1=1 TO 600 
500 NEXT I 
510 GOTO 210 
520 END 
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Shopping List 



This program tests your ability of memorizing 
items from a shopping list. Each time the computer 
displays 5 items for a few seconds, then asks you to 
repeat them. It will then tell you how many mistakes 
you made. 



Sample Run 
>RUN 

YOUR SHOPPING LIST 

FISH 

EGG 

BUTTER 

VEGETABLE 

OIL 

WHAT ARE THOSE ITEMS? 
EGG 

BUTTER 
SOAP 
COKE 
OIL 

YOU MADE 2 MISTAKES 
THE LIST WAS 



Program Listing 

100 REM SHOPPING LIST 
110 CALL CLEAR 
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120 DATA MILK, BEEF, SOAP, COKE 

130 DATA BREAD, BUTTER, WINE 

140 DATA ORANGE, SAUCE, NOODLE 

150 DATA RICE, COOKIE, FISH 

160 DATA CHICKEN, CREAM 

170 DATA VEGETABLE, OIL 

180 DATA EGG, TEA, GINGER 

190 DIM A$(20),B(5),C$(5) 

200 DIM D$(5) 

210 FOR 1=1 TO 20 

220 READ A$(I) 

230 NEXT I 

240 RANDOMIZE 

250 R=INT(RND*20)+1 

260 B(1 )=R 

270 FOR 1=2 TO 5 

280 R=INT(RND*20)+1 

290 FOR J=1 TO 1-1 

300 IF R=B(J)THEN 280 

310 NEXT J 

320 B(I)=R 

330 NEXT I 

340 PRINT "YOUR SHOPPING LIST" 

350 FOR 1=1 TO 5 

360 R=B(I) 

370 C$(I)=A$(R) 

380 PRINT A$(r) 

390 NEXT I 

400 FOR 1=1 TO 1000 

410 NEXT I 

420 CALL CLEAR 

430 PRINT "WHAT ARE THOSE ITEMS?" 
440 FOR 1=1 TO 5 
450 INPUT D$(I) 
460 NEXT I 
470 CT=0 

480 FOR 1=1 TO 5 
490 FOR J=1 TO 5 
500 IF C$(I)=D$(J)THEN 530 
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510 NEXT J 
520 GOTO 540 
550 CT=CT+1 
540 NEXT I 

550 PRINT "YOU MADE" ;5-CT; "MISTAKES" 
560 PRINT 

570 PRINT "THE LIST WAS" 
580 FOR 1=1 TO 5 
590 PRINT C$(l) 
600 NEXT I 
610 END 
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Typing Lesson 



This program will display four lines of randomly 
selected letters and blanks. You should type letter 
or blank as pointed by the " symbol. Any error will 
be warned by a beep tone. No back space is allowed. 
At the end, computer will display the total number of 
errors. Also, press Y if you want to get another typ- 
ing lesson. Press any other key will terminate the 
program. 



Program Listing 

100 REM TYPING LESSON 
110 RANDOMIZE 
120 CALL CLEAR 
130 FOR 1=4 TO 19 STEP 5 
140 FOR J=7 TO 26 
150 N=65+INT(RND*27) 
160 IF N091 THEN 180 
170 N=32 

180 CALL HCHAR(I,J,N,1) 
190 NEXT J 
200 NEXT I 
210 CT=0 

220 FOR 1=4 TO 19 STEP 5 
230 FOR J=7 TO 26 
240 CALL HCHAR(I+2,J,94,1) 
250 CALL GCHAR(I,J,N) 
260 CALL KEY(0, KEY, STATUS) 
270 IF STATUS=0 THEN 260 
280 IF KEY=N THEN 320 
290 IF KEY=141 THEN 260 
300 CALL SOUND(10,294,2) 
310 CT=CT+1 
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320 CALL HCHAR(l+2, J,KEY,1) 
330 NEXT J 
340 NEXT I 

350 PRINT "NUMBER OF ERRORS=";CT 
360 PRINT "DO YOU WANT TO CONTINUE?" 
370 CALL KEY(0, KEY, STATUS) 
380 IF STATUSO THEN 370 
390 IF KEY=89 THEN 120 
400 END 




-24- 



Break Even Analysis 



Base on the following information provided 
the user, 

F=Total Fixed Cost 
V=Variable Cost Per Unit 
S=Sales Price Per Unit 
U=Expected Sales in Units, 

This program performs the following calculations: 

Expected Sales in Dollars=S*U 
Break Even Point in Units=F/(S-V) 
Break Even Point in Dollars=F*S/(S-V) 
Margin of Safety Ratio=(U-(F/(S-V)))/U 
Profit or Loss=(S-V)*U-F 



Sample Run 
>RUN 



1 TOTAL FIXED COST= 

2 VARIABLE COST PER UNIT= 

3 SALES PRICE PER UNIT= 

4 EXPECTED SALES IN UNITS= 

ENTER SELECTION, 1 THROUGH 4 
1 

TOTAL FIXED C0ST=1O00 
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2 

VARIABLE COST PER UNIT=2 



3 

SALE PRICE PER UNIT=4 



4 

EXPECTED SALES IN UNITS=2000 
EXPECTED SALES=$ 8000 
BREAK EVEN POINT= 500 UNITS 
BREAK EVEN P0INT=$ 2000 
MARGIN OF SAFETY RATI0= .75 
PROFIT OR L0SS=$ 3000 



Program Listing 

100 REM BREAK EVEN ANALYSIS 

110 CALL CLEAR 

120 F=0 

130 V=0 

140 SO 

150 U=0 

160 D=0 

170 R=0 

180 BEPUO 

190 MU=0 

200 BEPDO 

210 MD=0 

220 IF (S=V)THEN 240 
230 BEPU=F/(S-V) 
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240 IF U=0 THEN 260 

250 MU=(U-BEPU)/U 

260 IF S=0 THEN 280 

270 R=(S-V)/S 

280 IF R=0 THEN 300 

290 BEPD=F/R 

300 IF D=0 THEN 320 

310 MD=(D-BEPD)/D 

320 PD=D*R-F 

330 CALL CLEAR 

340 PRINT "EXPECTED SALES=$";D 

350 PRINT "BREAK EVEN POINT=";BEPU; "UNITS" 

360 PRINT "BREAK EVEN POINT=$";BEPD 

370 PRINT "MARGIN OF SAFETY RATI0=";MD 

380 PRINT "PROFIT OR LOSS=$ " ; PD , , , 

390 PRINT "1 TOTAL FIXED C0ST=";F 

400 PRINT "2 VARIABLE COST PER UNIT=";V 

410 PRINT "3 SALES PRICE PER UNIT=";S 

420 PRINT "4 EXPECTED SALES IN UNITS=";U,,, 

430 INPUT "ENTER SELECTION, 1' THROUGH 4": I 

440 IF (I>4)+(I<1 )THEN 430 

450 ON I GOTO 460,480,500,520 

460 INPUT "TOTAL FIXED C0ST=":F 

470 GOTO 220 

480 INPUT "VARIABLE COST PER UNIT=":V 
490 GOTO 220 

500 INPUT "SALE PRICE PER UNIT=":S 
510 GOTO 220 

520 INPUT "EXPECTED SALES IN UNITS=":U 
530 D=S*U 
540 GOTO 220 
550 END 
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Interest Rate 



This program deals with the same problem as in 
the Loan Payment program. In this program, assume the 
amount of the loan, the number and amount of periodic 
payments are known, then the program will calculate 
the periodic interest rate. 

If you borrow 9100 dollars, and you pay back the 
loan in 48 months with monthly payment of 222.35 dol- 
lars, then the monthly interest rate is 
0.0067002954^. 



Sample Run 
>RUN 

AMOUNT OF LOAN 9100 

PERIODIC PAYMENT7222.53 

NUMBER OF COMPOUNDING PERI0DS?48 

10 

5. 

2.5 

1.25 



.0067002934 

PERIODIC INTEREST RATE IS 
.0067002954 



Program Listing 

100 REM INTEREST RATE 
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110 DEF F(I)=PV-PMT*(1-(H-I)*(-N))/I 

120 INPUT "AMOUNT OP LOAN ":PV 

130 INPUT "PERIODIC PAYMENT?" :PMT 

140 INPUT "NUMBER OF COMPOUNDING PERIODS?" :N 

150 L=1 .OE-10 

160 H=10 

170 IF (F(L)*F(H)<=0.0)THEN 200 
180 PRINT "REENTER INPUT VALUES" 
190 GOTO 120 

200 IF (ABS(H-L)<=1 .0E-10)THEN 290 
210 X=(H+L)/2 
220 PRINT H 

250 IF (F(X)*F(H)>=0.0)THEN 260 

240 L=X 

250 GOTO 270 

260 H=X 

270 GOTO 200 

280 PRINT : : 

290 PRINT :: 

500 PRINT "PERIODIC INTEREST RATE IS";H 
510 END 
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Loan Payment 



Let PV be the amount of the loan. This loan will 
be paid back in N equal payments (PMT). Let the in- 
terest rate per compounding period be 1%. Then the 
following relationship holds: 

PMT=PV*(I/100)/(1-(1+I/100)*(-N)) 

For example, assume that you borrow 9100 dollars. 
The annual interest rate is 8%. This loan will be 
repaid in 48 equal monthly payments. In this case, 
the monthly interest rate is 1=8/12=0.67 percent. As 
you can see from the sample run, your monthly payment 
is 222.32 dollars. 



Sample Run 
>RUN 

WHAT IS THE AMOUNT OF THE LOAN? 9100 
WHAT IS THE NUMBER OF COMPOUNDING 
PERIODS? 48 

WHAT IS THE PERIODIC INTEREST RATE? 0.67 

PERIODIC PAYMENT IS 

222.3284954 



Program Listing 

100 REM LOAN PAYMENT 
110 INPUT "WHAT IS THE AMOUNT OF THE 
LOAN?":PV 

120 INPUT "WHAT IS THE NUMBER OF COMPOUNDING 
PERIODS?" :N 
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130 INPUT "WHAT IS THE PERIODIC INTEREST 

RATE?": I 
140 1=1/100 

150 PMT=PV*I/(1-(1+I)"(-N)) 

160 PRINT "PERIODIC PAYMENT IS":PMT 

170 STOP 

180 END 
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Trend Forecasting 



Suppose that you are running a successful busi- 
ness. For each of the first four months this year, 
your profits are $2550, $5579, $4490 and $5600, 
respectively. You may use this program to forecast 
profits for the following two months. This program is 
based on the least-square regression methodology. 



Sample Run 
>RUN 

NO. OF KNOWN DATA P0INTS?4 

NO. OF DATA POINTS TO F0RECAST?2 

DATA POINT 1 ? 2550 

DATA POINT 2 ? 3579 

DATA POINT 3 ? 4490 

DATA POINT 4 ? 5600 

LEAST-SQUARE FORECASTING 



PERIOD ACTUAL FORECAST 

1 2550 2545.6 

2 3579 3551.7 

3 4490 4557.8 

4 5600 5563.9 

5 ? 6570 

6 ? 7576.1 



Program Listing 

100 REM TREND FORECASTING 
110 CALL CLEAR 
120 DIM Y(100) 
130 SI=0 
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140 SSIO 
150 SYI=0 
160 SIYI=0 

170 INPUT "NO. OF KNOWN DATA POINTS?" :M 
180 INPUT "NO. OF DATA POINTS TO 

FORECAST?" :N 
190 FOR 1=1 TO M 
200 PRINT "DATA POINT" ;I; 
210 INPUT YI 
220 Y(I)=YI 
230 SI=SI+I 
240 SSI=SSI+I*I 
250 SYI=SYI+YI 
260 SIYI=SIYI+I*YI 
270 NEXT I 

280 N1=SSI*SYI-SI*SIYI 
290 N2=-SI*SYI+M*SIYI 
500 DELTA=M*SSI-SI*SI 
510 CI =N1 /DELTA 
520 C2=N2/DELTA 

550 PRINT "LEAST-SQUARE FORECASTING" 
540 PRINT "PERIOD ACTUAL FORECAST" 
550 FOR 1=1 TO M 

560 PRINT I;TAB(9);Y(I);TAB(17);C1+C2*I 
570 NEXT I 

580 FOR I=M+1 TO M+N 

590 PRINT I;TAB(10);"?";TAB(17);C1+C2*I 
400 NEXT I 
410 END 
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Biorhythms 



The biorhythm theory assumes that hiiman "body 
functions according to some inner clocks with con- 
stant cycles. At birth, these cycles start in a posi- 
tive direction. The physical cycle (23-day) relates 
with physical vitality. The sensitivity (28-day) cy- 
cle relates sensitivity, creativity and cheerfulness. 
The cognitive (53-day) cycle relates with alertness, 
memory and judgement. 

Enter the year, month and date of your birth and 
of today. This program will output the levels of 
these three indicators. Positive values (O <= x <=1 ) 
are energetic times. Negative values are recuperative 
periods. Zero values are regarded as accident prone 
days . 



Sample Run 
>RUN 

WHAT YEAR WERE YOU B0RN?1 960 

M0NTH?6 

DAY?3 

THIS YEAR IS ?1983 
MONTH ?5 
TODAY ?7 

PHYSICAL VITALITY LEVEL= 

-.0853448295 

SENSITIVITY LEVEL= 

-.5671228279 

MENTAL ALERTNESS LEVEL= 

.9627925265 
** DONE ** 
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Program Listing 



100 REM BIORHYTHMS 

110 INPUT "WHAT YEAR WERE YOU BORN?":Y 
120 INPUT "MONTH?" :M 
130 INPUT "DAY?":D 
140 GOSUB 290 
150 11=1 

160 INPUT "THIS YEAR IS ?":Y 

170 INPUT "MONTH ?":M 

180 INPUT "TODAY ?":D 

190 GOSUB 290 

200 N=I2-I 

210 N=N*6.28318 

220 P=SIN(N/23) 

230 S=SIN(N/28) 

240 C=SIN(N/33) 

250 PRINT "PHYSICAL VITALITY LEVEL=":P 

260 PRINT "SENSITIVITY LEVEL=":S 

270 PRINT "MENTAL ALERTNESS LEVEL=":C 

280 STOP 

290 I=D-621049 

300 I1=Y*365.25 

310 12=30. 6*(M+1 ) 

320 IF M>2 THEN 350 

330 11=11-365.25 

340 12=12+12*30.6 

350 I=I+INT(I1)+INT(I2) 

360 RETURN 

370 END 
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Calling the Largest Number 



You first specify the number of cards. The com- 
puter then secretly writes down one number on each 
card. One at a time, the computer reveals to you the 
number on each card. After examining each number, you 
have to decide if that number is the largest. If so, 
you press the key Y to stop the game. Otherwise, you 
press any other key to continue. If you press key Y, 
the entire set of numbers is revealed to you immedi- 
ately. If your choice is correct, you win 3 dollars, 
otherwise you lose 1 dollar. 



Sample Run 
>RU1I 

YOU ARE GIVEN 100 DOLLARS 
ENTER NUMBER OF CARDS 10 
WHEN YOU SEE THE LARGEST NUMBER, PRESS Y 
CARD # 1 = 63 
CARD # 2 = 92 
(press Y) 

THE REST OF THE CARDS 

CARD # 3 = 52 



CARD # 6 = 93 

YOU LOSE 1 DOLLAR 
TOTAL AMOUNT=$ 99 
TO CONTINUE PRESS SPACE BAR 
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Program Listing 



100 REM CALLING THE LARGEST NUMBER 
110 RANDOMIZE 
120 CALL CLEAR 
150 DIM R(1000) 
140 T=100 

150 PRINT "YOU ARE GIVEN" ;T; "DOLLARS" 
160 PRINT 

170 INPUT "ENTER NUMBER OP CARDS ":N 
180 PRINT 

190 PRINT "WHEN YOU SEE THE 
LARGEST NUMBER, PRESS Y" 
200 PRINT 
210 FOR 1=1 TO N 
220 R(I)=INT(RND*10"2)+1 
250 NEXT I 
240 FOR 1=1 TO N 
250 PRINT "CARD #";I ; "=";R(I) 
260 CALL KEY(0, KEY, STATUS) 
270 IF STATUS=0 THEN 260 
280 IF KEY=89 THEN 540 
290 NEXT I 
500 T=T-1 
510 PRINT 

520 PRINT "YOU LOSE 1 DOLLAR" 
550 GOTO 460 
540 PRINT 

550 PRINT "THE REST OF THE CARDS" 

560 PRINT 

570 FOR J=I+1 TO N 

580 PRINT "CARD #"; J; "=";R( j) 

590 NEXT J 

400 FOR J=1 TO N 

410 IF R(I)<R(J) THEN 500 

420 NEXT J 
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430 T=T+5 
440 PRINT 

450 PRINT "YOU WIN 3 DOLLARS 
460 PRINT "TOTAL AMOUNT=$";T 
470 PRINT 

480 PRINT "TO CONTINUE PRESS 

SPACE BAR" 
490 PRINT 

500 CALL KEY(0, KEY, STATUS) 
510 IF STATUS=0 THEN 500 
520 IF KEY=32 THEN 210 
530 END 




Card Game 



You start with 100 dollars. Each time the com- 
puter draws two cards face up. You have the option to 
bet or not to bet depending on if you think the value 
of the next card will be between the first two. The 
game is over when you do not have any money left. 



Sample Run 
>RUN 

NOW YOU HAVE $ 100 
YOUR TWO CARDS ARE 

2 4 
WHAT IS YOUR BET? 10 
THIRD CARD IS 
3 

YOU WIN 

NOW YOU HAVE $ 110 
YOUR TWO CARDS ARE 

4 5 
WHAT IS YOUR BET?0 
CHICKEN 



Program Listing 

100 REM CARD GAME 
110 DIM CARDS (14) 
120 CARD$(11 )="JACK" 
130 CARDS (12)= "QUEEN" 
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140 CARD$(13)="KING" 
150 CARDS (14)= "ACE" 
160 FOR 1=2 TO 10 
170 CARD$(I)=STR$(I) 
180 NEXT I 
190 CALL CLEAR 
200 T=100 

210 PRINT "NOW YOU HAVE $";T 

220 RANDOMIZE 

250 N1=INT(l3*RND)+2 

240 N2=INT(l5*RND)+2 

250 IF N1>=N2 THEN 230 

260 PRINT "YOUR TWO CARDS ARE";TAB(5); 

CARDS (N 1 ) ; TAB( 1 2 ) ; CARDS (N2 ) 
270 PRINT 

280 INPUT "WHAT IS YOUR BET?":M 

290 IF M=0 THEN 300 ELSE 320 

300 PRINT "CHICKEN" 

310 GOTO 230 

320 IF M<=T THEN 350 

330 PRINT "YOU ONLY HAVE $";T 

340 GOTO 280 

350 N3=INT(l3*RND)+2 

360 PRINT "THIRD CARD IS" :CARD$(N3) 

370 PRINT 

380 IF (N3>N1 )*(N3<N2)THEN 430 
390 T=T-M 

400 IF T>0 THEN 210 

410 PRINT "THAT'S ALL, FOLKS" 

420 STOP 

430 PRINT "YOU WIN" 
440 T=T+M 
450 GOTO 210 
460 END 
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Chomp 



This program displays a cookie with 5 rows and 7 
columns. The piece on the upper left corner is poiso- 
nous. Two players alternately chomp the cookie from 
lower right by specifying a row number and a column 
number. The one who eats the poisonous piece loses. 



Program Listing 

100 REM CHOMP 

110 CALL CLEAR 

120 FOR J=10 TO 22 STEP 2 

150 A=(J/2)H4 

140 CALL HCHAR(8,J,A) 

150 NEXT J 

160 FOR 1=10 TO 18 STEP 2 
170 A=(I/2)H4 
180 CALL HCHAR(I,8,A) 
190 NEXT I 

200 FOR 1=10 TO 18 STEP 2 
210 FOR J=10 TO 22 STEP 2 
220 CALL HCHAR(I, J,42) 
250 NEXT J 
240 NEXT I 

250 CALL HCHAR(10, 10,80) 
260 M1$="PLAYER I'S M0VE=" 
270 M2$= "PLAYER 2'S M0VE=" 
280 M$=M1$ 
290 P=1 

500 FOR 1=1 TO LEN(M$) 
510 A=ASC(SEG$(M$,I,1 )) 
520 CALL HCHAR(22,5+I,A) 
550 NEXT I 
540 GOSUB 610 
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350 IF (KEY>53)+(KEY<49)THEN 300 

360 CALL HCHAR(22,22,KEY) 

370 R0W=KEY*2-88 

380 GOSUB 610 

390 CALL HCHAR(22, 23,44) 

400 GOSUB 610 

410 IF (KEY>56)+(KEY<49)THEN 300 

420 CALL HCHAR(22,24,KEY) 

430 C0L=KEY*2-88 

440 CALL GCHAR(R0W,C0L,A) 

450 IF A=32 THEN 300 

460 IF A=80 THEN 470 ELSE 490 

470 PRINT " PLAYER ";P;"LOST" 

480 STOP 

490 FOR I=ROW TO 18 STEP 2 
500 FOR J=C0L TO 22 STEP 2 
510 CALL HCHARd, J,32) 
520 NEXT J 
530 NEXT I 

540 IF P=1 THEN 550 ELSE 580 

550 P=2 

560 M$=M2$ 

570 GOTO 300 

580 P=1 

590 M$=iyi1$ 

600 GOTO 300 

610 CALL KEY(0, KEY, STATUS) 
620 IF STATUS=0 THEN 610 
630 RETURN 
640 END 
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Craps 



You start with 100 dollars. You are asked to "bet 
before you roll two dice. If your first roll is a 7 
or 11, you win. If your first roll is a 2, 5 or 12, 
you lose. If your first roll is a 4, 5, 6, 8, 9 or 
10, then this number is called your "point". If you 
roll a point on your first roll, then you must con- 
tinue rolling until you either roll your point again 
or roll a 7. If you make your point, you win. If you 
roll a 7, then you lose. To terminate this program 
before you run out of money, hold the key FCTN down, 
then press CLEAR. 



Sample Run 
>RUW 

NOW YOU HAVE $100 TO PLAY 
HOW MUCH DO YOU BET?10 
PRESS ANY KEY TO ROLL 
YOU ROLL 2 AND 6 
AND YOUR POINT IS 8 
PRESS ANY KEY TO ROLL 
YOU ROLL 2 AND 6 
AND MAKE YOUR POINT 
NOW YOU HAVE $110 TO PLAY 



Program Listing 

100 REM CRAPS 
110 CALL CLEAR 
120 RANDOMIZE 
130 T=100 

140 IP T=0 THEN 150 ELSE 170 
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150 PRINT "THAT'S ALL, FOLKS" 
160 STOP 

170 PRINT "NOW YOU HAVE $";T;" TO PLAY",, 

180 INPUT "HOW MUCH DO YOU BET?":M 

190 IF (M<=0)+(M>T)THEN 180 

200 N1=INT(7*RND)+1 

210 N2=INT(7*RND)+1 

220 N=N1+N2 

230 PRINT "PRESS ANY KEY TO ROLL" , , , 

240 CALL KEY(0, KEY, STATUS) 

250 IF STATUS=0 THEN 240 

260 IF (N=7)+(N=11 )THEN 270 ELSE 300 

270 PRINT "YOU ROLL" ;N1 ; "AND" ;N2; "AND WIN" 

280 T=T+M 

290 GOTO 140 

300 IF (N<4)+(N=12)THEN 310 ELSE 340 
310 PRINT "YOU ROLL" ;N1; "AND" ;N2; "AND LOSE 
320 T=T-M 
330 GOTO 140 

340 PRINT "YOU ROLL" ;N1 ; "AND" ;N2; "AND 

YOUR POINT IS";N,,, 
350 N1=INT(7*RND)+1 
360 N2=INT(7*RND)+1 
370 P=N1+N2 

380 PRINT "PRESS ANY KEY TO ROLL" , , , 
390 CALL KEY(0, KEY, STATUS) 
400 IF STATUS=0 THEN 390 
410 IF P=N THEN 420 ELSE 440 
420 PRINT "YOU R0LL";N1;"AND";N2; 

"AND MAKE YOUR POINT" 
430 GOTO 280 

440 IF (P=7)THEN 450 ELSE 470 
450 PRINT "YOU ROLL" ;N1 ; "AND" ;N2; 

"AND LOSE" , , , 
460 GOTO 320 

470 PRINT "YOU ROLL" ;N1 ; "AND" ;N2; 

"AND CONTINUE" , , , 
480 GOTO 350 
490 END 
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Cryptography 



The concept of secret writing has "been in ex- 
istence as far back as written language existed. To 
preserve the security of private information, you can 
employ a special form of process called data encryp- 
tion. Data encryption scrambles sensitive information 
using a sequence of characters called keyword. The 
input to the encoding algorithm are your plaintext 
(your original message in unscrambled form) and the 
keyword. The encoding algorithm scrambles the mes- 
sage. The output is scrambled data, called cipher- 
text. 

The encryption process is reversible. You can 
decipher the scrambled message if you have the key- 
word and the decoding algorithm to reverse the pro- 
cess to get the plaintext. 

In the sample run, we use TOY as the keyword. 
If you want to terminate this program, hold down the 
key FCTN, then press CLEAR. 



Sample Run 

>RUN 

1 ENTER KEYWORD 

2 ENTER PLAINTEXT 

3 ENTER CIPHERTEXT 

ENTER SELECTION, 1 THROUGH 5 
1 

KEYWORD=?TOY 

ENTER SELECTION, 1 THROUGH 5 
2 

PLAINTEXT=?THIS IS FUN 
KEYWORD= TOY 
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PLAINTEXT 
THIS IS FUN 
CIPHERTEXT 
ELAZBPNCKLR 
(press any key to continue) 



Program Listing 

100 REM CRYPTOGRAPHY 

110 CALL CLEAR 

120 PRINT "1 ENTER KEYWORD": 

150 PRINT "2 ENTER PLAINTEXT": 

140 PRINT "3 ENTER CIPHERTEXT":: 

150 INPUT "ENTER SELECTION, 1 THROUGH 3 

160 S=INT(S) 

170 IF S<1 THEN 110 

180 IF S>3 THEN 110 

190 ON S GOTO 200,280,480 

200 INPUT "KEYW0RD=?":KD$ 

210 K1=1 

220 FOR 1=1 TO LEN(KD$) 
230 C$=SEG$(KD$,I,1) 
240 N=ASC(C$) 
250 K1=K1*N 
260 NEXT I 
270 GOTO 110 

280 IF LEN(KD$)=0 THEN 110 

290 INPUT "PLAINTEXT=?":EG$ 

300 CP$="" 

310 RANDOMIZE K1 

320 FOR 1=1 TO LEN(EG$) 

330 R=INT(RND*27) 

340 E$=SEG$(EG$,I,1 ) 

350 E=ASC(E$) 

360 F=0 

370 IF E>90 THEN 400 
380 IF E<65 THEN 400 
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590 F=E-64 

400 G=(P+R)-INT((P+R)/27)*27 
410 H=32 

420 IP G=0 THEN 440 
450 H=G+64 
440 H$=CHR$(H) 
450 CP$=CP$&H$ 
460 NEXT I 
470 GOTO 660 

480 IP LEN(KD$)=0 THEN 110 

490 INPUT ••CYPHERTEXT=?":CP$ 

500 EG$="" 

510 RANDOMIZE K1 

520 POR 1=1 TO LEN(CP$) 

550 R=INT(RND*27) 

540 H$=SEG$(CP$,I,1 ) 

550 H=ASC(H$) 

560 G=0 

570 IP H=52 THEN 590 
580 G=H-64 

590 P=G-R+27-INT((G-R+27)/27)*27 
600 E=52 

610 IP P=0 THEN 650 
620 E=F+64 
650 E$=CHR$(E) 
640 EG$=EG$&E$ 
650 NEXT I 

660 PRINT " ":"KEYW0RD=",KD$ 
670 PRINT " '•: "PLAINTEXT" 
680 PRINT " ":EG$ 
690 PRINT " ":"CIPHERTEXT" 
700 PRINT " ":CP$ 

710 PRINT " ": "PRESS ANY KEY TO CONTINUE" 
720 CALL KEY(0, KEY, STATUS) 
750 IP STATUS=0 THEN 720 
740 GOTO 110 
750 END 
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Gold Bug 



You may speculate in the gold market without 
risking a penny. This program does just that. Every- 
day you have the option of buying, selling or doing 
nothing. Gold price varies from day to day. How long 
does it take to double your initial investment of one 
hundred thousand dollars? 



Sample Run 

>RUN 
DAY NO: 1 

1 TO BUY GOLD 

2 TO SELL GOLD 

3 DO NOTHING 

ENTER SELECTION, 1 THROUGH 3 
1 

AMOUNT OF BUYING IN 0UNCES?20 

DAY NO: 2 

GOLD PRICE :$ 495 

AMOUNT OF GOLD: 20 OUNCES 

CASH:$ 91000 

TOTAL WORTH :$ 100900 



Program Listing 

100 REM GOLD BUG 
110 RANDOMIZE 
120 D=l 
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130 C=1 00000 

140 G=0 

150 P=450 

160 T=P*G+0 

170 CALL CLEAR 

180 PRINT "DAY NO:";D 

190 PRINT 

200 PRINT "GOLD PRICE :$";P 
210 PRINT 

220 PRINT "AMOUNT OF GOLD:"; 

G; "OUNCES" 
230 PRINT 

240 PRINT "CASH:$";C 
250 PRINT 

260 PRINT "TOTAL WORTH :$";T 
270 PRINT 

280 IF T<=100 THEN 490 
290 PRINT "1 TO BUY GOLD" 
300 PRINT "2 TO SELL GOLD" 
310 PRINT "3 DO NOTHING" 

320 INPUT "ENTER SELECTION, 1 THROUGH 3":S 
330 S=INT(S) 

340 IF (S<1 )+(S>3)THEN 320 

350 ON S GOTO 360,410,450 

360 INPUT "AMOUNT OF BUYING IN OUNCES?" :N 

370 IF (N*P)>C THEN 160 

380 C=C-N*P 

390 G=G+N 

400 GOTO 450 

410 INPUT "AMOUNT OF SELLING IN OUNCES?" :N 

420 IF N>G THEN 160 

430 G=G-N 

440 C=C+N*P 

450 P=P+INT(RND*99)-49 

460 IF P<1 THEN 450 

470 D=D+1 

480 GOTO 160 

490 PRINT "SORRY, YOU ONLY HAVE $";T 
500 END 
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Guess Number 



This program plays the game of guessing numbers 
"between and a limit specified by the user. Computer 
also helps you with some clues. 



Sample Run 
>RUN 

LARGEST NUMBER=10 
YOUR GUESS=5 
TOO LARGE 
YOUR GUESS=3 
TOO LOW 
YOUR GUESS=4 
YOU GOT IT 



Program Listing 

100 REM GUESS NUMBER 
110 CALL CLEAR 
120 RANDOMIZE 

130 INPUT "LARGEST NUMBER=":N 
140 R=INT(RND*N)+1 
150 INPUT "YOUR GUESS=":G 
160 IF G>R THEN 170 ELSE 190 
170 PRINT "TOO LARGE",,,,' 
180 GOTO 150 

190 IF G=R THEN 200 ELSE 220 

200 PRINT "YOU GOT IT" , , , , 

210 GOTO 130 

220 PRINT "TOO LOW",,,, 

230 GOTO 150 

240 END 
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Hangman 



This program plays the popular word game of 
Hangman. It randomly selects a word from statements 
160 to 190. You may put other words in these state- 
ments, as long as the total number of words is 
correctly put in statements 260 and 270. a?he computer 
then displays a few dashes and asks you to guess the 
letters for the word. This program allows you 11 
chances to guess the letters. Moreover, even if you 
are hung, no rope is drawn on the screen. 



Sample Run 
>RUN 



LETTERS USED 
YOUR GUESS?A 



A 

LETTERS USED 
A 

YOUR GUESS?! 



A 

LETTERS USED 
AI 

YOUR GUESS?P 
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APP— 



LETTERS USED 
AIP 

YOUR GUESS? 



Program Listing 

100 REM HANGMAN 

110 RANDOMIZE 

120 M1$=" LETTERS USED" 

150 M2$="" 

140 M3$="Y0UR GUESS?" 

150 CALL CLEAR 

160 DATA TABLE, CHAIR, HOUSE 

170 DATA BOOK, UNIVERSITY 

180 DATA AIRPLANE, SHIP, MONEY 

190 DATA HORSE, APPLE 

200 DATA 15,21,79,16,21,75 

210 DATA 17,21,75,16,20,95 

220 DATA 16,22,95,18,20,47 

250 DATA 18,22,92,16,19,42 

240 DATA 16,25,42,19,19,42 

250 DATA 19,25,42 

260 N=10 

270 DIM W$(10) 

280 FOR 1=1 TO N 

290 READ W$(I) 

500 NEXT I 

510 H=0 

520 P=INT(RND*N)+1 

550 B$=W$(P) 

540 L=LEN(B$) 

550 CALL HCHAR(5,10,45,L) 

560 R0W=7 
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370 C0L=5 

380 M$=M1$ 

390 GOSUB 770 

400 R0W=9 

410 C0L=3 

420 M$=M2$ 

430 GOSUB 770 

440 R0W=11 

450 C0L=3 

460 M$=M3$ 

470 GOSUB 770 

480 CALL KEY(0, KEY, STATUS) 

490 IF STATUS=0 THEN 480 

500 CALL HCHAR(11 ,14,KEY) 

510 M2$=M2$&CHR$(KEY) 

520 MAR=0 

530 FOR J=1 TO LEN(B$) 
540 K$=SEG$(B$, J,1 ) 
550 K=ASC(K$) 

560 IF KEY=K THEN 570 ELSE 590 
570 MAR=1 

580 CALL HCHAR(5,9+J,K) 
590 NEXT J 

600 IF MARO THEN 610 ELSE 640 
610 H=H+1 

620 READ RR,CC,AA 

630 CALL HCHAR(RR,CC,AA) 

640 IF H=11 THEN 650 ELSE 680 

650 PRINT "YOU ARE HUNG" 

660 CALL S0UND(100,294,2) 

670 STOP 

680 BLANK=0 

690 FOR 1=1 TO L 

700 CALL GCHAR(5,9+I,XX) 

710 IF XX=45 THEN 720 ELSE 730 

720 BLANK=1 

730 NEXT I 

740 IF BLANK=0 THEN 750 ELSE 400 
750 PRINT "YOU GOT IT" 
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760 STOP 

770 FOR 1=1 TO LEN(M$) 

780 LT$=SEG$(M$,I,1 ) 

790 LT=ASC(LT$) 

800 CALL HCHAR(R0W,C0L+I-1 ,LT) 

810 NEXT I 

820 RETURN 

830 END 
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Knight's Tour 



In the classical chessboard problem, the knight 
is allowed to make a sequence of moves to any square 
which is two rows and one column or two columns and 
one row away from its current position, each square 
on the board can be landed only once. In the begin- 
ning, you are asked to specify a row number between 1 
and 8, and to specify a column number between 1 and 
8. Then computer draws an 8 by 8 chessboard. Starting 
from the row and column specified, a sequence of 
moves is made randomly by the computer until no more 
move is possible. We use the set of characters, 
starting from letter A, to indicate the sequence of 
moves. 



Sample Run 

>RUN 
INITIAL R0W?3 
INITIAL C0L?5 

(you will see a Knight's Tour on the screen) 



Program Listing 

100 REM KNIGHT'S TOUR 
110 CALL CLEAR 
120 DIM RR(8),CC(8) 
130 DATA 6,3,-6,3,6,-3 
UO DATA -6,-3,3,6,-3,6 
150 DATA 3,-6,-3,-6 
1 60 FOR 1=1 TO 8 
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170 READ R,C 
180 RR(I)=R 
190 CC(I)=C 
200 NEXT I 
210 RANDOMIZE 

220 BAR$="FFFFFFFFFFFFFFFF" 
230 CALL CHAR(128,BAR$) 
240 CALL CHAR(156,BAR$) 
250 CALL C0L0R(15,7,1) 
260 CALL C0L0R(U,2,1) 
270 INPUT "INITIAL ROW?":R 
280 IF (R<1 )+(R>8)THEN 270 
290 INPUT "INITIAL COL?":C 
500 IF (C<1 )+(C>8)THEN 290 
510 CALL CLEAR 
520 CI =128 
550 C2=156 

540 FOR 11=0 TO 0.5 STEP 0.5 

550 FOR I=II TO 5+II 

560 FOR J=1 TO 5 

570 FOR K=5 TO 25 STEP 6 

580 CALL HCHAR(I*6+J,K,C1 ,5) 

590 CALL HCHAR(I*6+J,K+5,C2,5) 

400 NEXT K 

410 NEXT J 

420 NEXT I 

450 CT=C1 

440 C1=C2 

450 C2=CT 

460 NEXT II 

470 R0W=R*5-1 

480 C0L=5+C*5 

490 SY=65 

500 CALL HCHAR(R0W,C0L,SY) 

510 SY=SY+1 

520 N=INT(RND*8)+1 

550 FOR 1=1 TO 8 

540 IF N<=8 THEN 560 

550 N=N-8 
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560 NRO¥=ROW+RR(N) 
570 NCOL=COL+CC(n) 
580 N=N+1 

590 IF (NR0W>0)*(NR0W<25)* 

(NC0L>4)*(NC0L<29)THEN 600 
ELSE 650 

600 CALL GCHAR(NR0W,NC0L,X) 

610 IF (X=128)+(X=156)THEN 
620 ELSE 650 

620 R0W=NR0W 

650 C0L=NC0L 

640 GOTO 500 

650 NEXT I 

660 CALL S0UND(2000,-3,5) 
670 CALL KEY(0, KEY, STATUS) 
680 IF STATU^=0 THEN 670 
690 STOP 
700 END 



Lottery 



This program simulates N.Y. state lottery. Each 
ticket has a 6-digit number. Amount of winning is as 
follows : 



You first specify the total number of tickets. Then 
enter each ticket number in 6 digits. The computer 
will tell you the amount of winning, if any. 



Sample Run 

>RUN 
NO. OF TICKETS? 1 
ENTER TICKET NO. IN 6 DIGITS 
TICKET NO. 1 ? 257790 
WINNING NO: 799890 
TICKET NO: 257790 
AMOUNT OF WINNING :$ 2 
TOTAL WINNING: $ 2 



Program Listing 

100 REM LOTTERY 
110 CALL CLEAR 
120 RANDOMIZE 



First 5 or last 5 digits correct 
First 4 or last 4 digits correct 
First 3 or last 3 digits correct 
First 2 and last 2 digits correct 
First 2 or last 2 digits correct 



All 6 digits correct 



$50,000. 
$ 2,000. 
$ 125. 
$ 25. 
$ 5. 
$ 2. 
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130 DIM T$(100),P(4) 
140 P(l )=2000 
150 P(2)=125 
160 P(3)=25 
170 P(4)=2 

180 DATA 1,5,2,5,1,4,3,4 

190 DATA 1,3,4,3,1,2,5,2 

200 W$="" 

210 FOR 1=1 TO 6 

220 R=INT(RND*10) 

230 W$=W$&STR$(r) 

240 NEXT I 

250 INPUT "NO. OF TICKETS?" :N 
260 PRINT 

270 PRINT "ENTER TICKET NO. IN 

6 DIGITS" 
280 PRINT 
290 FOR 1=1 TO N 
300 PRINT "TICKET NO.";I; 
310 INPUT T$(I) 
320 PRINT 
330 NEXT I 

340 PRINT "WINNING NO:";W$ 

350 PRINT 

360 FOR 1=1 TO N 

370 K$=T$(I) 

380 PAY=0 

390 IF K$=¥$ THEN 400 

ELSE 420 
400 PAY=50000 
410 GOTO 520 

420 IF (SEG$(K$,1,2)=SEG$(W$,1,2))* 
( SEG$ (K$ , 5 , 2 )=SEG$ ( W$ , 5 , 2 ) ) 
THEN 430 ELSE 450 
430 PAY=5 
440 GOTO 520 
450 RESTORE 
460 FOT J=1 TO 8 
470 READ A,B 
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480 IF SEG$(K$,A,B)=SEG$(¥$,A,B) 

THEN 510 
490 NEXT J 
500 GOTO 520 
510 PAY=P(INT((J+1 )/2)) 
520 PRINT "TICKET N0:";K$ 
530 PRINT "AMOUNT OF WINNING: $"; PAY 
540 PRINT 
550 T=T+PAY 
560 NEXT I 
570 PRINT 

580 PRINT "TOTAL WINNING: $";T 
590 END 
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Moon Landing 



Imagine you are landing a spacecraft on the sur- 
face of the moon. You start with 100 units of fuel. 
The initial rate of fuel consumption is 50%* You can 
increase the rate of fuel consumption "by pressing key 
H, or reduce it by pressing L. If the fuel rate is 
too low, you may crash. If your fuel rate is too 
high, you may run out of fuel too early. This also 
leads to crash landing. So be careful and have a hap- 
py moon landing. Press any key to start a new game. 
To terminate the program, hold down key FCTN, then 
press key CLEAR 



Program Listing 



100 REM MOON LANDING 

110 CALL CLEAR 

120 CALL SCREEN(6) 

130 BAR$="PPFFPFFFFPPPPFFF" 

140 CALL CHAR(128,BAR$) 

150 CALL C0L0R(13,15,1) 

160 CALL CHAR(156,BAR$) 

170 CALL C0L0R(14,9,1) 

180 CALL CHAR(144,BAR$) 

190 CALL C0L0R(15,12,1) 

200 DATA 2,4,70,2,5,85,2,6,69 

210 DATA 2,7,76,4,4,82,4,5,65 

220 DATA 4,6,84,4,7,69,3,11,48 

250 DATA 3,20,53,3,28,49,3,21,48 

240 DATA 6,18,79 

250 DATA 3,29,48,3,30,48 

260 DATA 67,82,65,83,72,32 

270 DATA 76,65,78,68,73,78 

280 DATA 71 
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290 DATA 83,79,70,84,32,76 
300 DATA 65,78,68,73,78,71 
310 RESTORE 

320 CALL HCHAR(12,11 ,32,13) 
330 F=100 

540 CALL HCHAR(22,18,32,1) 

350 T=0 

360 R=50 

370 X0LD=6 

380 FOR 1=1 TO 15 

390 READ R0W,C,A 

400 CALL HCHAR(R0W,C,A) 

410 NEXT I 

420 CALL HCHAR(2, 11 ,136,20) 
430 CALL HCHAR(4, 11 ,144,10) 
440 CALL HCHAR(23,1 ,128,64) 
450 CALL KEY(0, KEY, STATUS) 
460 IF STATUS=0 THEN 450 
470 IF F>0 THEN 490 
480 R=0 

490 XX=50-R-T*(F=0)*30 
500 XNEW=INT(XX/2O)+X0LD 
510 IF (XNEW<23)THEN 530 
520 XNEW=23 

530 IF XNEW>6 THEN 550 
540 XNEW=6 

550 CALL HCHAR(X0LD, 18,32) 
560 CALL HCHAR(XNEW, 18,79) 
570 IF XNEW=22 THEN 940 
580 IF XNEW=23 THEN 860 
590 X0LD=XNEW 
600 CALL KEY(0, KEY, STATUS) 
610 IF STATUS=0 THEN 710 
620 IF KEY=72 THEN 680 
630 IF KEY076 THEN 710 
640 R=R-20 

650 IF R>=0 THEN 710 

660 R=0 

670 GOTO 710 
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680 R=R+20 

690 IP R<101 THEN 710 

700 R=100 

710 T=T+1 

720 F=F-R/5 

750 IF F>=0 THEN 750 

740 F=0 

750 C0L=INT(F/5)+11 
760 N=52-C0L 

770 CALL HCHAR(2,C0L,32,N) 

780 C0L=INT(R/5)+11 

790 N=52-C0L 

800 C1=C0L-10 

810 IF (C1>0)THEN 850 

820 GOTO 840 

850 CALL HCHAR(4,11 ,144,C1 ) 

840 CALL HCHAR(4»C0L,52,N) 

850 GOTO 470 

860 FOR 1=1 TO 13 

870 READ A 

880 CALL HCHAR(12,I+10,A) 
890 NEXT I 

900 CALL S0UND(500,-1 ,2) 
910 CALL KEY(0, KEY, STATUS) 
920 IF STATUS=0 THEN 910 
950 GOTO 510 
940 RESTORE 290 
950 FOR 1=1 TO 12 
960 READ A 

970 CALL HCHAR(12,I+10,A) 
980 NEXT I 

990 CALL S0UND(200,200,10) 
1000 CALL KEY(0, KEY, STATUS) 
1010 IF STATUS=0 THEN 1000 
1020 GOTO 510 
1050 END 
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Mouse and Cheese 



This program draws a maze with a mouse and a 
piece of cheese. The mouse runs randomly in the maze 
to find the cheese. This is an interesting example of 
the "random walk" problem known by statistician. 



Program Listing 

100 REM MOUSE AND CHEESE 
110 CALL CLEAR 
120 RANDOMIZE 

130 BAR$="FFFFFFFFFFFFFFFF" 
140 CALL CHAR(128,BAR$) 
150 CALL C0L0R(15,7,1 ) 
160 CALL C0L0R(5,2,7) 
170 CALL C0L0R(6,2,7) 
180 FOR 1=4 TO 20 STEP 4 
190 CALL HCHAR(I,9,128,17) 
200 CALL VCHAR(4,I+5,128,17) 
210 NEXT I 

220 CALL HCHAR(8,25,67) 
230 R0W=16 
240 C0L=9 

250 CALL HCHAR(R0W,C0L,77) 

260 N=INT(RND*4)+1 

270 R0WL=R0W 

280 C0LL=C0L 

290 SR=1 

300 SC=1 

310 ON N goto 320,350,370,390 
320 R0¥L=R0W-4 
330 SR=-1 
340 GOTO 410 
350 C0LL=C0L+4 
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360 GOTO 410 
570 R0WL=R0¥+4 
580 GOTO 410 
590 C0LL=C0L-4 
400 SC=-1 

410 IF (C0LL>8)*(C0LL<26)*(R0WL>5)* 

(R0WL<21 )THEN 420 ELSE 260 
420 CALL GCHAR(R0WL,C0LL,X) 
450 PR=R0W 
440 PC=COL 

450 FOR R=ROW TO ROWL STEP SR 
460 FOR C=COL TO COLL STEP SC 
470 CALL HCHAR(PR,PC,128) 
480 CALL HCHAR(R,C,77) 
490 PR=R 
500 PC=C- 
510 NEXT C 
520 NEXT R 

550 IF X=67 THEN 540 ELSE 560 
540 PRINT "MOUSE FOUND CHEESE" 
550 STOP 
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Nicoma 



You first think of a 
100. Then the computer 
Based on your answer, the 
what your number is. 



whole number between 1 and 
asks you three questions, 
computer can figure out 



Sample Run 
>RUN 

THINK OF A WHOLE NUMBER BETWEEN 
1 AND 100 

YOUR NUMBER DIVIDED BY 3 HAS A 
REMINDER OF 1 

YOUR NUMBER DIVIDED BY 5 HAS A 
REMINDER OF 1 

YOUR NUMBER DIVIDED BY 7 HAS A 
REMINDER OF 2 
YOUR NUMBER IS 16 



Program Listing 

100 REM NICOMA 
110 CALL CLEAR 

120 PRINT "THINK OF A WHOLE NUMBER 

BETWEEN 1 AND 100",,, 
130 INPUT "YOUR NUMBER DIVIDED 

BY 3 HAS A REMINDER OF ":P 
140 INPUT "YOUR NUMBER DIVIDED 

BY 5 HAS A REMINDER OF ":Q 
150 INPUT "YOUR NUMBER DIVIDED 

BY 7 HAS A REMINDER OF ":R 
160 S=70*P+21*Q+15*R 
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170 IF S>105 THEN 180 ELSE 200 
180 S=S-105 
190 GOTO 170 

200 PRINT "YOUR NUMBER IS ";S,,,, 
210 GOTO 120 
220 END 
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Nimb 



This program plays the game of Nimb. In the be- 
ginning, you are asked to specify the total number of 
objects and the maximum number of objects that can be 
taken each time. You are allowed to make the first 
move. Then it alternates between you and the comput- 
er. The player forced to take the last one loses. 



Sample Run 
>RUN 

TOTAL NUMBER OF 0BJECTS?6 
MAXIMUN NUMBER TAKEN EACH TIME?3 
YOUR M0VE?1 
COMPUTER MOVE 1 
NUMBER LEFT 4 
YOUR M0VE?3 
YOU WIN 
** DONE ** 



Program Listing 

100 REM NIMB 
110 CALL CLEAR 

120 INPUT "TOTAL NUMBER OF OBJECTS?" :N 
130 INPUT "MAXIMUM NUMBER TAKEN EACH 

TIME?":M 
140 IF (M<0)+(N<M) then 150 
150 INPUT "YOUR MOVE?":Y 
160 IF (Y<1 )+(Y>M)+(Y>N) THEN 150 
170 N=N-Y 

180 IF (N>0)THEN 210 
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190 PRINT "COMPUTER WINS" 
200 STOP 

210 P=INT((N-1 )/(M+1 )) 

220 R=N-1 -P*(M+1 ) 

230 IF (R=0)THEN 240 ELSE 280 

240 IF (N>1)THEN 250 ELSE 270 

250 R=1 

260 GOTO 280 

270 R=1+INT(M*RND) 

280 N=N-R 

290 IF (N<=0)THEN 300 ELSE 320 
300 PRINT "YOU WIN" 
310 STOP 

320 PRINT "COMPUTER MOVE";R 
330 PRINT "NUMBER LEFT";N,,, 
340 GOTO 150 
350 END 



On the Money 



A pile of money is on the ground. You try to 
shoot at it from the left corner of the screen. You 
enter the velocity and angle, the computer will do 
the rest. If you hit on the money, you will hear a 
loud sound . 

To terminate this program, hold down FCTN key 
and press CLEAR key. 



Sample Run 

>RUN 
VEL0CITY=?3.5 
ANGLE IN DEGREE=?40 

(hold your "breath and see what happens) 



Program Listing 

100 REM ON THE MONEY 
110 RANDOMIZE 
120 CALL CLEAR 
130 P=RND*25+3 
140 P=INT(P) 

150 CALL HCHAR(22,P,36,1 ) 
160 CALL HCHAR(23,P-1 ,36,3) 
170 R=5 
180 C=5 

190 M$="VEL0CITY=?" 

200 GOSUB 570 

210 C=16 

220 GOSUB 470 

230 V=M 

240 R=10 
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250 C=5 

260 M$= "ANGLE IN DEGREE=?" 

270 GOSUB 570 

280 C=24 

290 GOSUB 470 

500 Z=M 

510 Z=Z/57.29 

520 T=0 

550 R0W=INT(24-SIN(z)*T*Y+0. 1*T*T) 

540 C0L=INT(V*C0S(Z)*T)+1 

550 IF R0WO25 THEN 590 

560 IP C0L<P-1 THEN 590 

570 IF C0L>P+1 THEN 590 

580 CALL S0UND(2000,-5,5) 

590 IF ROW<=0 THEN 110 

400 IF R0W>24 THEN 110 

410 IF C0L<=0 THEN 110 

420 IF C0L>52 THEN 110 

450 CALL HCHAR(R0W,C0L,42,1) 

440 T=T+1 

450 GOTO 550 

460 GOTO 210 

470 M$="" 

480 CALL KEY(0, KEY, STATUS) 
490 IF STATUS=0 THEN 480 
500 IF KEY=15 THEN 550 
510 CALL HCHAR(R,C,KEY,1 ) 
520 C=C+1 

550 M$=M$&CHR$(KEY) 
540 GOTO 480 
550 M=VAL(M$) 
560 RETURN 

570 FOR 1=1 TO LEN(M$) 

580 C$=SEG$(M$,I,1 ) 

590 N=ASC(C$) 

600 CALL HCHAR(R,C+I,N,1 ) 

610 NEXT I 

620 RETURN 

650 END 
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Piglatin 



This program translates English text into Pigla- 
tin. The rule of translation is the following: Move 
all consonants before the first vowel in an English 
word to the end of the word, and add the suffix "ay." 
This program is fun. 



Sample Run 
>RUN 

TYPE IN ENGLISH TEXT 
? THIS BOOK IS GREAT 
ENGLISH TEXT 

THIS BOOK IS GREAT 

PIGLATIN 

ISTHAY OOKBAY ISAY EATGRAY 



Program Listing 

100 REM PIGLATIN 

110 CALL CLEAR 

120 DIM B(5) 

150 DATA 65,69,73,79,85 

140 FOR 1=1 TO 5 

150 READ B(I) 

160 NEXT I 

170 PRINT "TYPE IN ENGLISH TEXT" 
180 INPUT M$ 
190 J1=1 

200 IF J1>LEN(M$)THEN 510 
210 FOR I=J1 TO LEN(M$) 



-72- 



220 C$=SEG$(M$,I,1 ) 

230 C=ASC(C$) 

240 IF C032 THEN 270 

250 NEXT I 

260 GOTO 510 

270 J1=I 

280 FOR J3=J1 TO LEN(M$) 

290 C$=SEG$(M$, J3,1 ) 

300 C=ASC(C$) 

310 IF C=32 THEN 330 

320 NEXT J3 

330 J3=J3-1 

340 FOR J2=J1 TO J3 

350 C$=SEG$(M$, J2,1 ) 

360 C=ASC(C$) 

370 FOR 1=1 TO 5 

380 IF C=B(I)THEN 420 

390 NEXT I 

400 NEXT J2 

410 J2=J2-1 

420 IF (J1=J2)+(J2=J3)THEN 

430 ELSE 460 
430 N$=N$&SEG$(M$, J1 , J3-J1 +1 ) 
440 N$=N$&"AY " 
450 GOTO 490 

460 N$=N$&SEG$(M$, J2, J3-J2+1 ) 

470 N$=N$&SEG$(M$, J1 , J2-J1 ) 

480 N$=N$&"AY " 

490 J1=J3+1 

500 GOTO 200 

510 PRINT "ENGLISH TEXT" 

520 PRINT 

530 PRINT M$ 

540 PRINT 

550 PRINT "PIGLATIN" 
560 PRINT 
570 PRINT N$ 
580 STOP 
590 END 
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Skiing 



Would you enjoy a skiing trip to Aspen, Colora 
do? Well, let us first try one on your computer. Thi 
program will randomly draw 12 trees on the screen 
While you ski downward, you may move right by press 
ing key D and move left by pressing key S. Just b 
careful and not hit any tree. 



Program Listing 

100 REM SKIING 

110 CALL CLEAR 

120 CALL COLORd ,13,0 

130 CALL SCREEN(16) 

140 DATA -1 ,0,94,0,-1 ,47 

150 DATA 0,0,94,0,1,92 

160 DATA 1,-1,47,1,0,94 

1 70 A$= "1 898FF3D3D3DE505 " 

180 CALL CHAR(111,A$) 

190 B$="FFOOOOOOOOOOOOOO" 

200 CALL CHAR (95, B$) 

210 DATA 1 ,1 ,92 

220 RANDOMIZE 

230 FOR 1=1 TO 12 

240 R0W=INT((l0*RND)/4)*4+10 

250 C0L=INT ( ( 26*RND ) /4 )*4+3 + (R0W=1 4 ) 

260 RESTORE 

270 FOR J=1 TO 7 

280 READ R,C,A 

290 CALL HCHAR(ROW+R,COL+C,A) 

300 NEXT J 

310 NEXT I 

320 FOR PR=1 TO 24 

330 PR1=PR+1 

340 FOR PC=C0L TO 26 

350 CALL GCHAR(PR,PC,X) 
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360 CALL GCHAR(PR1 ,PC,Y) 
570 IF (X=32)+(Y=52)THEN 410 
380 NEXT PC 
390 NEXT PR 
400 GOTO 220 

410 CALL HCHAR(PR,PC,111) 
420 CALL HCHAR(PR1 ,PC,95) 
430 IF PR 1=24 THEN 730 
440 PRN=PR+1 
450 PR1N=PRN+1 
460 PCN=PC 

470 CALL KEY(0, KEY, STATUS) 

480 IF STATUS=0 THEN 530 

490 IF KEY083 THEN 510 

500 PCN=PC-1 

510 IP KEY068 THEN 530 

520 PCN=PC+1 

530 IF PCN>4 THEN 550 

540 PCN=4 

550 IF PCN<26 THEN 570 
560 PCN=26 

570 IF PR1N<24 THEN 600 
580 PR1N=24 
590 PRN=23 

600 CALL GCHAR(PRN,PCN,X) 
610 CALL GCHAR(PR1N,PCN,Y) 
620 CALL HCHAR(PR,PC,32) 
630 CALL HCHAR(PR1 ,PC,32) 
640 PR=PRN 
650 PC=PCN 
660 PR1=PR1N 

670 IF (X=32)+(Y=32)THEN 410 
680 CALL HCHAR(PR,PC,42) 
690 CALL HCHAR(PR1 ,PC,42) 
700 CALL S0UND(500,-1 ,2) 
710 PRINT "LOST" 
720 STOP 
730 PRINT "WIN" 
740 END 
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Timer 



This program is a count down timer. User enters 
hours, minutes and seconds. Computer will start to 
count time and display the remaining time on the 
screen. At the end, it will also play a few musical 
tones. This timer is not very accurate. Do not use it 
for serious business. 



Sample Run 

>RUN 
HOURS?0 
MINUTES?1 
SECONDS?! 5 

(you will see remaining time on screen) 



Program Listing 

100 REM TIMER 

110 INPUT "HOURS?" :H 

120 INPUT "MINUTES?" :MIN 

130 INPUT "SECONDS?": SEC 

140 C0UNT=3600*H+60*MIN+SEC 

150 CALL CLEAR 

160 C0UNT=C0UNT-1 

170 IF C0UNT=-1 THEN 320 

180 H=INT( COUNT/3600) 

190 C=COUNT-H*3600 

200 H$=STR$(H) 

210 MIN=INT(C/60) 

220 SEC=C-60*MIN 

230 MIN$=STR$(MIN) 
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240 SEC$=STR$(SEC) 

250 TIME$=H$&":"&MIN$&":"&SEC$&" " 

260 FOR 1=1 TO LEN(TIME$) 

270 L$=SEG$(TIME$,I,1) 

280 N=ASC(L$) 

290 CALL HCHAR(7,10+I,N) 

300 NEXT I 

310 GOTO 160 

320 T0NE=110 

330 FOR CT=1 TO 10 

340 CALL S0UND(1000,T0NE,10) 

350 T0NE=T0NE+1 1 

360 NEXT CT 

370 END 
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Tower of Hanoi 



This program solves the well known puzzle, 
called the Tower of Hanoi. There are three posts. On 
one post, there are a number of rings of various di- 
ameters, with the largest on the "bottom and the smal- 
lest on the top. The puzzle is to transfer the set of 
rings to one of the other two posts, moving one ring 
at a time and never placing a ring on top of a small- 
er one. 

In the following sample run, we start with 3 
rings on post 1. The solution is to move ring 1 (the 
smallest one) from post 1 to post 2, then to move 
ring 2 from post 1 to post 3, etc. 



Sample Run 

>RUN 
NO. OF RINGS?3 
PROM POST NUMBER? 1 
TO POST NUMBER72 
MOVE RING FROM POST TO POST 



1 


1 


2 


2 


1 


3 


1 


2 


3 


3 


1 


2 


1 


3 


1 


2 


3 


2 


1 


1 


2 



DONE ** 

Program Listing 

100 REM TOWER OF HANOI 
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110 CALL CLEAR 

120 DIM SN(10),SP1 (10) 

130 DIM SP2(10),SR(10) 

140 INPUT "NO. OF RINGS?" :NR 

150 PRINT 

160 INPUT "FROM POST NUMBER?" :F 
170 PRINT 

180 INPUT "TO POST NUMBER?" :T 
190 PRINT 

200 PRINT "MOVE RING FROM POST TO POST" 

210 SP=0 

220 N=NR 

230 P1=F 

240 P2=T 

250 SP=SP+1 

260 SN(SP)=N 

270 SP1 (SP)=P1 

280 SP2(SP)=P2 

290 SR(SP)=3 

300 IF N<=0 THEN 390 ELSE 310 

310 SP=SP+1 

320 SN(SP)=N 

330 SP1 (SP)=P1 

340 SP2(SP)=P2 

350 SR(SP)=1 

360 N=N-1 

370 P2=6-P1-P2 

380 GOTO 300 

390 N=SN(SP) 

400 P1=SP1 (SP) 

410 P2=SP2(SP) 

420 R=SR(SP) 

430 SP=SP-1 

440 ON R GOTO 450,390,540 
450 PRINT TAB(5);N;TAB(16);P1 

;TAB(25);P2 
460 SP=SP+1 
470 SN(SP)=N 
480 SP1 (SP)=P1 
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490 SP2(SP)=P2 
500 SR(SP)=2 
510 N=N-1 
520 P1=6-P1-P2 
530 GOTO 300 
540 END 



Typing Monkey 



In 1927, Eddington made the statement: "If an 
army of monkeys were strumming on typewriters they 
might write all the books in the British Museum." 
This program does just that. Try it. 



Program Listing 

100 REM TYPING MONKEY 
110 CALL CLEAR 
120 DATA .058, .0696, .0862 
130 DATA .1174, .2104, .2283 
140 DATA .2418, .2922, .5415 
150 DATA .3424, .3497, .3848 
160 DATA .41 , .4595, .5327 
170 DATA .5449, .5457, .5909 
180 DATA .6436, .7162, .7450 
190 DATA .7538, .7741, .7747 
200 DATA .7969, .7973, .9942 
210 DATA 1 .0 
220 DIM A(28) 
230 RANDOMIZE 
240 FOR 1=1 TO 28 
250 READ A(I) 
260 NEXT I 

270 FOR R=3 TO 21 STEP 3 

280 FOR C=5 TO 28 

290 X=RND 

300 FOR 1=1 TO 28 

310 IF (X<=A(I))THEN 330 

320 NEXT I 

330 IF 1=27 THEN 340 ELSE 360 
340 B=32 
350 GOTO 400 
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360 IP 1=28 THEN 370 ELSE 390 
370 B=44 
380 GOTO 400 
390 B=I+64 

400 CALL HCHAR(R,C,B) 
410 NEXT C 
420 NEXT R 
430 END 
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Christmas Tree 



This program draws a "beautiful Christmas tree on 
your TV screen. To terminate this program, hold down 
FCTN key, then press CLEAR. 



Program Listing 

100 REM CHRISTMAS TREE 

110 RANDOMIZE 

120 DIM A(10) 

130 DATA 64,65,66,42,43 

140 DATA 64,79,94,74,75 

150 CALL CLEAR 

160 CALL SCREEN(11 ) 

170 CALL C0L0R(2,16,13) 

180 CALL C0L0R(5,12,6) 

190 CALL C0L0R(6,9,13) 

200 CALL C0L0R(8,12,13) 

210 CALL VCHAR(20, 17,94,3) 

220 CALL VCHAR(20, 16,94,3) 

230 CALL HCHAR(23,3,35,61 ) 

240 FOR 1=1 TO 10 

250 READ A(I) 

260 NEXT I 

270 FOR 1=1 TO 10 

280 R1=INT(16*RND)+4 

290 N=INT(R1/2-2) 

300 C1=INT((R1-3)*RND)-N+16 

310 CALL HCHAR(R1,C1,A(I)) 

320 NEXT I 

330 GOTO 270 

340 END 
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Colorful 



This program will continuously draw colorful 
patterns on your TV screen. To terminate this pro- 
gram, hold the key FCTN down, then press the key 
CLEAR. 



Program Listing 

100 REM COLORFUL 
110 CALL CLEAR 
120 FOR 1=1 TO 16 
130 K=INT(16*RND)+1 
140 J=INT(16*RND)+1 
150 CALL C0L0R(I,J,K) 
160 NEXT I 
170 RANDOMIZE 
180 FOR R=1 TO 24 
190 FOR C=1 TO 32 
200 A=INT(80*RND)+32 
210 CALL HCHAR(R,C,A) 
220 NEXT C 
230 NEXT R 
240 GOTO 120 
250 END 
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Flag 



This program will draw a beautiful flag of the 
United States of America on your TV screen. 



Program Listing 
100 REM FLAG 

1 1 STAR$= "ITFFF7E3C 1 E3EBFF" 

120 HSTP$="00000000FFFFFFFF" 

130 STP$="FFFFFFFFFFFFFFFF" 

140 CALL CLEAR 

150 CALL CHAR(35, STARS) 

160 CALL CHAR(53,HSTP$) 

170 CALL CHAR(54,STP$) 

180 CALL C0L0R(1 ,5,16) 

190 CALL CHAR(40,STP$) 

200 CALL CHAR(41 ,HSTP$) 

210 CALL C0L0R(2,7,16) 

220 CALL SCREEN(16) 

230 FOR 1=0 TO 3 

240 CALL HCHAR(1+I*3,16,41 ,15) 

250 CALL HCHAR(2+I*3, 16,40, 15) 

260 NEXT I 

270 FOR 1=4 TO 6 

280 CALL HCHARd +1*3,3,41 ,28) 

290 CALL HCHAR(2+I*3,3,40,28) 

300 NEXT I 

310 CALL HCHAR(1 ,3,33,13) 
320 FOR 1=2 TO 11 
330 CALL HCHAR(I,3,34,13) 
340 NEXT I 

350 FOR 1=2 TO 10 STEP 2 
360 FOR J=4 TO 14 STEP 2 
370 CALL HCHAR(I,J,35,1) 
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380 NEXT J 
390 NEXT I 

400 FOR 1=3 TO 9 STEP 2 
410 FOR J=5 TO 13 STEP 2 
420 CALL HCHAR(I,J,35,1) 
430 NEXT J 
440 NEXT I 

450 CALL KEY(0, KEY, STATUS) 
460 IF STATUS=0 THEN 450 
470 CALL CLEAR 
480 END 
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3D Graph 



This program will plot a family of curves on the 
screen. It looks 5-dimensional. 



Program Listing 

100 REM 3D GRAPH 
110 CALL CLEAR 
120 FOR I=-14 TO 14 
150 AO 

140 FOR J=-25 TO 25 STEP 2.5 

150 R=I*I+J*J 

160 K=INT(25*EXP(-R/100)) 

170 IF K<=A THEN 220 

180 A=K 

190 R=(31-K)*0.8 
200 C=I+16 

210 CALL HCHAR(R,C,46) 
220 NEXT J 
250 NEXT I 

240 CALL KEY(0, KEY, STATUS) 
250 IF STATUS=0 THEN 240 
260 END 
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Base Conversion 



Numbers can be represented in different bases. 
This program will convert a positive integer in base 
A, , to its equivalent representation in base B, x 
. The bases A and B can be any integer from 2 to 16.' 
For example, consider number in base 8, 10? . From 
the following sample run, we can see that%he same 
number in base 16 is 47 . 



Sample Run 

>RUN 
ENTER BASE=8 

ENTER NUMBER IN BASE 8=107 
BASE 2 =1000111 
BASE 3 =2122 



BASE 15 =4B 
BASE 16 =47 



Program Listing 

100 REM BASE CONVERSION 

110 DIM M$(16),R(20) 

120 DATA 01 23456789ABCDEF 

150 READ P$ 

140 FOR 1=1 TO 16 

150 M$(I)=SEG$(P$,I,1) 

160 NEXT I 
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170 CALL CLEAR 

180 INPUT "ENTER BASE=":B 

190 IF (B<2)+(B>16)THEN 180 

200 PRINT "ENTER NTJMBER IN BASE";B; 

210 INPUT "=":N$ 

220 N=0 

250 FOR 1=1 TO LEN(N$) 
240 P$=SEG$(N$,I,1) 
250 Q=-1 

260 FOR J=1 TO B STEP 1 

270 IF P$=M$(J)THEN 280 ELSE 290 

280 Q=J-1 

290 NEXT J 

500 IP Q<0 THEN 200 

510 N=N*B+Q 

320 NEXT I 

330 FOR B=2 TO 16 

340 1=1 

350 T=N 

360 R(I)=T-INT(T/B)*B 
370 T=INT(T/B) 
380 1=1+1 

390 IF TOO THEN 360 
400 PRINT "BASE";B;"="; 
410 FOR J=I-1 TO 1 STEP -1 
420 K=R(J)+1 
430 PRINT M$(K); 
440 NEXT J 
450 PRINT 
460 NEXT B 
470 END 
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Differential Equations 



This program solves first-order differential 
equations by the fourth-order Runge-Kutta method. The 
equation is of the form 

dy/dx=f(x,y) 

The function f(x,y) is defined in statement 120. The 
user is required to specify the initial values for x, 
y, and the stepsize of x. 



Sample Run 

>RUN 
INITIAL X=0 
INITIAL Y=0 
STEP SIZE=0.1 

X Y 



.1 .0048375 

.2 .0187309014 



1.9 1.049568877 
(press any key to continue) 

Program Listing 

100 REM DIFFERENTIAL EQUATIONS 
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110 CALL CLEAR 

120 DEF F=-y+X 

130 INPUT "INITIAL X=":XI 

140 INPUT "INITIAL Y=":YI 

150 INPUT "STEP SIZE=":H 

160 PRINT " X";TAB(16);"Y",,, 

170 FOR 1=1 TO 20 

180 PRINT XI, YI 

190 X=XI 

200 Y=YI 

210 C1=H*F 

220 X=XI+H/2 

230 Y=YI+Cl/2 

240 C2=H*F 

250 X=XI+H/2 

260 Y=YI+C2/2 

270 C3=H*F 

280 X=XI+H 

290 Y=YI+C3 

300 C4=H*F 

310 XI=XI+H 

320 YI=YI+(1/6)*(C1+2*C2+2*C3+C4) 
330 NEXT I 

340 CALL KEY(0, KEY, STATUS) 

350 IF STATUSO THEN 340 ELSE 170 

360 END 
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Factorial 



For any positive whole number N, the factorial 
of N is defined to be 1*2*5*... *N. This program will 
calculate the factorial of any number up to 34. The 
result from this program can be 40 digits long. 



Sample Run 

>RUN 
N=20 

FACTORIAL OF 1 
1 

FACTORIAL OF 2 
2 



FACTORIAL OF 20 
24329020081 76640000 



Program Listing 

100 REM FACTORIAL 
110 CALL CLEAR 
120 DIM FAC(40) 
130 LMT=40 
140 INPUT "N=":N 
150 N=INT(N) 

160 IF (N<0)+(N>34)THEN 140 
170 FOR 1=1 TO LMT 
180 FAC(I)=0 
190 NEXT I 
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200 PAC(LMT)=1 
210 FOR K=1 TO N 
220 C=0 

250 FOR L=LMT TO 1 STEP -1 

240 FAC(L)=FAC(L)*K+C 

250 C=INT(FAC(L)/10) 

260 FAC(L)=FAC(L)-10*C 

270 NEXT L 

280 FOR 1=1 TO LMT 

290 IF FAC(I)<>0 THEN 310 

500 NEXT I 

310 G$="" 

320 FOR L=I TO LMT 
330 G$=G$&STR$(FAC(L)) 
540 NEXT L 

550 PRINT "FACTORIAL 0F";K 
560 PRINT G$ 
570 PRINT 
580 NEXT K 
590 END 
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Integration-Gaussian 



Based on the six point Gaussian Integration 
method, this program computes an approximation of the 
integral for f(x) from any given lower limit of x to 
infinity. The function f(x) is defined in statement 
120. 



Sample Run 
>RUN 

LOWER LIMIT OF X=2.0 
INTEGRAL= .4999999938 



Program Listing 

100 REM INTEGRATION-GAUSSIAN 

110 CALL CLEAR 

120 DEF P(X)=1/X*2 

130 DATA .2386191861 ,.4679139346 

140 DATA .661 2093865,. 360761 573 

150 DATA .9324695142,-1713244924 

160 DIM X(6),Y(6),¥(6) 

170 INPUT "LOWER LIMIT OF X=":XZ 

180 FOR 1=1 TO 5 STEP 2 

190 READ Y(I),W(I) 

200 Y(I+1 )=-Y(l) 

210 W(I+1 )=W(I) 

220 NEXT I 

230 FOR 1=1 TO 6 

240 X(I)=2/(1+Y(I))+XZ-1 

250 NEXT I 

260 S=0 
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270 FOR 1=1 TO 6 

280 S=S+W(I)/((1+Y(I))"2)*F(X(I)) 
290 NEXT I 
300 S=S*2 

510 PRINT "INTEGRAL=";S 
320 END 



Integration-Simpson 



This program uses Simpson's Rule to approximate 
the area under the curve f(x) over the interval 
(A,B). The function f(x) is specified in statement 
150. The user specifies the end points of the inter- 
val (A,B) and the total number of intervals used in 
Simpson's approximation. 



Sample Run 

>RUN 
A=0 
B=2 

NUMBER OF INTERVALS=10 
RESULT= 

12.66666667 
** DONE ** 



Program Listing 

100 REM INTEGRATION 

110 REM SIMPSON'S RULE 

120 CALL CLEAR 

150 DEF F(X)=X"2+3*X+2 

140 INPUT "A=":A 

150 INPUT "B=":B 

160 IF B<A THEN 140 

170 INPUT "NUMBER OF INTERVALS=" :K 

180 IF K<0 THEN 170 

190 L=(B-A)/K 

200 LH=L/2 

210 S=0.0 
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220 S1=P(A+LH) 
250 FOR 1=1 TO K-1 
240 X=A+I*L 
250 S=S+F(X) 
260 S1=S1+F(X+LH) 
270 NEXT I 

280 RT=L*(F(A)+2*S+F(B)+4*Sl)/6 
290 PRINT "RESULT=":RT 
500 END 

























Mm 





















B 
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Linear Equations 



This program solves 


a set of 


linear 


equations i 


following form: 








|A(1,1) A(1,2) . . . 


A(1,N)1 


|X(1)| 


|a(1 ,N+1 )1 


1a(2,1) A(2,2) . . . 


A(2,N)1 


|X(2)| 


|A(2,N+1 )| 


1 • • • • • 

|A(N,1) A(N,2) . . . 


A(N,N)| 


ix(N)i 


1 * 1 
1 * 1 

1a(n,n+i )| 



where the number of equations N and all the elements 
A(I,J) are provided by the user. 



Sample Run 
>RUN 

NUMBER OF EQUATI0NS?2 
A(1,1)=? 1 
A(1,2)=? 3 
A(1,5)=? 2 
A(2,1)=? 4 
A(2,2)=? 2 
A(2,3)=? 4 
A MATRIX 

1 3 2 

4 2 4 
X(1)= .8 
X(2)= .4 
** DONE ** 



Program Listing 
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100 REM LINEAR EQUATIONS 
110 DIM A(30,31 ) 

120 INPUT "NUMBER OF EQUATIONS?" :N 

150 FOR 1=1 TO N 

140 FOR J=1 TO N+1 

150 PRINT "A(";I;",";J;")="; 

160 INPUT A(I,J) 

170 NEXT J 

180 NEXT I 

190 PRINT "A MATRIX" 
200 FOR 1=1 TO N 
210 FOR J=1 TO N+1 
220 PRINT A(I,J); 
250 NEXT J 
240 PRINT 
250 NEXT I 
260 FOR 1=1 TO N 
270 R=I 

280 B=ABS(A(I,I)) 

290 FOR J=I+1 TO N 

500 IF ABS(A(J,I))>B THEN 

510 ELSE 550 
510 R=J 

520 B=ABS(A(J,I)) 
550 NEXT J 

540 IF B=0 THEN 550 ELSE 570 

550 PRINT "NO WELL DEFINED SOLUTION" 

560 STOP 

570 IF ROI THEN 580 ELSE 450 

580 FOR J=1 TO N+1 

590 B=A(I,J) 

400 A(I, J)=A(R, J) 

410 A(R,J)=B 

420 NEXT J 

450 B=A(I,I) 

440 FOR J=I+1 TO N+1 

450 A(I,J)=A(I,J)/B 

460 NEXT J 
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470 FOR J=I+1 TO N 
480 E=A(J,I) 

490 for r=i+1 to n+1 

500 a(j,r)=a(j,r)-a(i,r)*e 

510 NEXT R 
520 NEXT J 
530 NEXT I 

540 FOR J=N-1 TO 1 STEP -1 
550 E=0.0 

560 FOR R=J+1 TO N 

570 E=E+A(R,N+1 )*A(J,R) 

580 NEXT R 

590 A(J,N+1 )=A(J,N+1 )-E 

600 NEXT J 

610 FOR 1=1 TO N 

620 PRINT "X(";I;")="; 

A(I,N+1 ) 
630 NEXT I 
640 END 
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Magic Square 



A magic square of order N is an arrangement of 
integers in an NxN matrix such that the sums of all 
the elements in every row and column and along the 
two main diagonals are equal. This program asks the 
user to input an odd integer N, then displays a magic 
square of order N. 



Program Listing 

100 REM MAGIC SQUARE 
110 CALL CLEAR 
120 DIM A(11 ,11 ) 
130 INPUT "SIZE=":N 
140 N=INT(N) 

150 IF INT(N/2)*2=N THEN 150 

160 IP N<=0 THEN 130 

170 1=1 

180 J=(N+1 )/2 

190 FOR C=1 TO N*N 

200 A(I,J)=C 

210 IF C-INT(C/N)*N=0 THEN 

220 ELSE 240 
220 1=1+1 
230 GOTO 320 

240 IF 1=1 THEN 250 ELSE 270 

250 I=N 

260 GOTO 280 

270 1=1-1 

280 IF J=N THEN 290 ELSE 310 

290 J=1 

300 GOTO 320 

310 J=J+1 

320 NEXT C 
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530 FOR 1=1 TO N 
540 FOR J=l TO N 
550 PRINT A(I,J); 
560 NEXT J 
570 PRINT 
580 NEXT I 
590 END 











J) 








7> 
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Matrix Multiplication 



This program multiplies two matrices A and B, 
and the result is in C matrix. The user specifies the 
sizes and elements of A and B matrices. The program 
does the rest. 



Sample Run 
>RUN 

NO. OF ROWS OF A=2 
NO. OF COLUMNS OF A=3 
NO. OF COLUMNS OF B=1 
A(1,1)= 
? 1 

A(1,2)= 
? 3 



A MATRIX 

1 3 1 

2 6 1 

B MATRIX 
1 
5 
3 

C MATRIX 
13 
23 
DONE ** 



Program Listing 
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100 REM MATRIX MULTIPLICATION 
110 CALL CLEAR 
120 DIM A(20,20),B(20,20) 
130 DIM C(20,20) 
140 INPUT "NO. OF ROWS OF A=":L 
150 INPUT "NO. OF COLUMNS OF 
A=":M 

160 INPUT "NO. OF COLUMNS OF 

B=":N 
170 FOR 1=1 TO L 
180 FOR J=1 TO M 
190 PRINT "A(";I;",";J;")=" 
200 INPUT A(I,J) 
210 NEXT J 
220 NEXT I 
230 FOR J=1 TO M 
240 FOR K=1 TO N 
250 PRINT "B(";J;",";K;")=" 
260 INPUT B(J,K) 
270 NEXT K 
280 NEXT J 
290 PRINT "A MATRIX" 
300 FOR 1=1 TO L 
310 FOR J=1 TO M 
320 PRINT A(I,J); 
330 NEXT J 
340 PRINT 
350 NEXT I 

360 PRINT "B MATRIX" 
370 FOR J=1 TO M 
380 FOR K=1 TO N 
390 PRINT B(J,K); 
400 NEXT K 
410 PRINT 
420 NEXT J 
430 FOR 1=1 TO L 
440 FOR J=1 TO N 
450 C(I,J)=0 
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460 FOR K=1 TO M 

470 C(I,J)=C(I,J)+A(I,K)*B(K,J) 

480 NEXT K 

490 NEXT J 

500 NEXT I 

510 PRINT "C MATRIX" 
520 FOR 1=1 TO L 
550 FOR J=1 TO N 
540 PRINT C(I,J); 
550 NEXT J 
560 PRINT 
570 NEXT I 
580 STOP 
590 END 



Monte Carlo 



In this program, the value of tt is estimated by- 
taking random samples (X,Y) in a unit square and 
counting the number of samples that lie inside a unit 
circle centered at the origin. The probability that a 
sample is in the unit circle is 7r/4. As the follow- 
ing run shows, after 500 trials, the result is quite 
close to TT . 



Sample Run 



>RUN 
1 

2 
5 



100 



200 



500 



4 
2 

2.66666 



.2 



.1 



3.176 



Program Listing 

100 REM MONTE CARLO 
110 RANDOMIZE 
120 C=0 
130 1=0 
140 X=RND 
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150 Y=RND 

160 IF (X*X+Y*Y)<1 THEN 170 

ELSE 180 
170 C=C+1 
180 1=1+1 
190 R=C/I*4 
200 PRINT I,R 
210 GOTO 140 
220 END 
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Pascal Triangle 



From the coefficients of the following binomial 
expansions, 

(a+b)° =1 

(a+b)^ =a+b 

(a+b)^ =a^+-2ab+b^ 

(a+b)^ =a^ +5a^b+5ab^+b^ 



one can form a Pascal triangle 
1 

1 1 
1 2 1 

13 5 1 
• • • • * 

This program will print out a Pascal triangle up to 
the coefficients of a ninth-order binomial expansion. 



Program Listing 

100 REM PASCAL TRIANGLE 

110 CALL CLEAR 

120 DIM A(11) 

130 FOR 1=1 TO 11 

140 A(I)=0 

150 NEXT I 

160 A(1 )=1 

170 FOR 1=1 TO 10 
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180 B$="" 

190 FOR J=1 TO I 

200 NB=A(J) 

210 B$=B$&" "&STR$(NB) 
220 NEXT J 

250 PRINT TAB(16-I-INT(I/6)*(I-5));B$ 

240 PRINT " " 

250 FOR K=I TO 1 STEP -1 

260 A(K+1 )=A(K+1 )+A(K) 

270 NEXT K 

280 NEXT I 

290 END 
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Prime Factors 



An integer, which can be evenly divided only by 
1 and itself, is called a prime number. For example, 
7 is a prime number; whereas 6 is not a prime number. 
This program prints out all prime factors of an in- 
teger. 



Sample Run 
>RUW 

ENTER A NUMBER 1179 

ALL PRIME FACTORS OF 1179 

5 

5 

131 



Program Listing 

100 REM PRIME FACTORS 

110 INPUT "ENTER A NUMBER ":N 

120 PRINT "ALL PRIME FACTORS OF";N 

130 N=ABS(INT(N)) 

140 PF=2 

150 IF PF>N THEN 220 

160 IF INT(N/PF)*PF<>N THEN 200 

170 N=N/PF 

180 PRINT PF 

190 GOTO 160 

200 PP=PF+1 

210 GOTO 150 

220 END 
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Prime Numbers 



An integer number is said to be a prime number 
if it is divisible by 1 and itself only. For any po- 
sitive integer N specified by the user, this program 
will print out all prime numbers less than or equal 
to N. 



Program Listing 

100 REM PRIME NUMBERS 
110 CALL CLEAR 

120 INPUT "ENTER POSITIVE INTEGER N ":N 

150 DIM A(1000) 

140 FOR 1=2 TO N 

150 A(I)=I 

160 NEXT I 

170 NL=SQR(N) 

180 NL=INT(NL) 

190 FOR K=2 TO NL STEP 1 

200 LM=2*K 

210 IF LM>N THEN 250 

220 FOR L=LM TO N STEP K 

250 A(L)=0 

240 NEXT L 

250 NEXT K 

260 PRINT "ALL PRIME NUMBERS 

LESS THAN ";N,,,, 
270 FOR L=2 TO N 
280 IF A(L)=0 THEN 500 
290 PRINT A(L); 
500 NEXT L 
510 END 
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Zeros of Functions 



This program will find a real zero of a function 
P(x) defined in statement 20. In our case, 
F(x)=x*7-5. User has to provide the values for LOW 
and HIGH, which define an interval for x. This pro- 
gram is based on the bisection method. If the func- 
tion does not have a zero in the interval (LOW, HIGH), 
then the computer will ask you to change LOW and 
HIGH. 



Program Listing 

10 REM ZEROS OF FUNCTIONS 

20 DEF F(X)=x*7-5 

50 INPUT "LOW=?":L 

40 INPUT "HIGH=?":H 

50 IF (F(l)*F(H)<=0.0)THEN 80 

60 PRINT "CHANGE LOW OR HIGH" 

70 GOTO 30 

80 IF (ABS(H-L)<=1 .0E-10)THEN 160 
90 X=(H+L)/2 
100 PRINT H 

110 IF (F(X)*F(H)>=0.0)THEN 140 

120 L=X 

130 GOTO 150 

140 H=X 

150 GOTO 80 

160 PRINT "ZERO OF F(X) IS ";H 
170 END 
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